source('dados.R')

d <- density(Danos)
fdp <- function(x)
	d$y[which.min(abs(d$x - x))]

d <- density(Danos, )
fdp <- function(x)
	d$y[which.min(abs(d$x - x))]


